﻿<!--#include file="conn.asp"#-->
<!--#include file="sessao.asp"#-->
<!--#include file="getsessao.asp"#-->
<!--#include file="fn_combo.asp"#-->
<!--#include file="fn_table.asp"#-->
<%
Select Case request("acao")
	Case "getAssuntos"
		getAssuntos()
	Case "getEditarAssunto"
		getEditarAssunto()
	Case "getStatus"
		getStatus()		
	Case "validarCombinacao"
		validarCombinacao()			
End Select

Sub validarCombinacao()
	Dim db_string
	Dim rsAssunto
	Dim retorno
	Dim status_retorno
	if request("nome") <> "" THEN
		db_string = "SELECT"
		db_string = db_string & " cod_assunto_informativo"
		db_string = db_string & " FROM informativos.tb_assunto_informativo as p"
		db_string = db_string & " WHERE 1=1"
		db_string = db_string & " AND p.desc_assunto = '"&request("nome")&"'"

		if request("cod_assunto_informativo") <> "0" THEN
			db_string = db_string & " AND NOT p.cod_assunto_informativo = "&request("cod_assunto_informativo")
		end if

		set rsAssunto = getRs(db_string)
		if not rsAssunto.eof then
			status_retorno = "false"
		Else
			status_retorno = "true"
		End If
		retorno = "{success : true, data: {"
		retorno = retorno & "'status_retorno':'"&status_retorno&"' }"			
		retorno = retorno & "}"
		response.write retorno
	Else
		response.write "false"
	End if
End Sub

Sub getAssuntos()
	Dim db_string
	db_string = "select a.desc_assunto as [Assunto], "
	db_string = db_string & " sa.desc_status as [Status],"
	db_string = db_string & " '<a href=''#'' class=''botao ico'' onclick=''return getEditarAssunto('+convert(varchar,a.cod_assunto_informativo)+');''><span class=''edit''></span></a> ' "
	db_string = db_string & " as [Ações] "
	db_string = db_string & "from informativos.tb_assunto_informativo as a "
	db_string = db_string & " inner join informativos.tb_status_assunto as sa on sa.cod_status_assunto = a.cod_status_assunto "

	db_string = db_string & " where 1=1 "
	if request("nome") <> "" then
		db_string = db_string & " and a.desc_assunto like '%"&request("nome")&"%' "
	end if
	
	Dim pg_sel
	if request("pg_sel") = "" then
		pg_sel = 1
	else
		pg_sel = cdbl(request("pg_sel"))
	end if

	response.write Table("list", db_string, "tabela", true, pg_sel, 10, "getAssuntos(!@#)")		
End Sub

Sub getStatus()
	Dim db_string
	db_string = " SELECT * FROM informativos.tb_status_assunto ORDER BY desc_status "
	retorno  = fn_combo(db_string,true,"")
	response.write retorno
End Sub


Sub getEditarAssunto()
	Dim db_string
	Dim rsAssunto

	if request("cod_assunto_informativo") <> "" then
		db_string = " select a.cod_assunto_informativo, a.desc_assunto,a.cod_status_assunto, sa.desc_status"
		db_string = db_string & " FROM informativos.tb_assunto_informativo AS a "
		db_string = db_string & " INNER JOIN informativos.tb_status_assunto AS sa"
		db_string = db_string & " ON sa.cod_status_assunto = a.cod_status_assunto"
		db_string = db_string & " where a.cod_assunto_informativo="&request("cod_assunto_informativo")
		set rsAssunto = getRs(db_string)
		if not rsAssunto.eof then
			retorno = "{success : true, data: {"
		    retorno = retorno & "'nome':'"&rsAssunto("desc_assunto")&"' ,"
		    retorno = retorno & "'cod_assunto_informativo':'"&rsAssunto("cod_assunto_informativo")&"' ,"
		    retorno = retorno & "'desc_assunto':'"&rsAssunto("desc_assunto")&"' ,"
		    retorno = retorno & "'cod_status_assunto':'"&rsAssunto("cod_status_assunto")&"' }"
			retorno = retorno & "}"
		End If
		rsAssunto.close
	End If
	set rsAssunto = nothing
	response.write retorno
End Sub


%>